home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / dbasgolf.arc / ANIMATE.PRG next >
Text File  |  1987-07-27  |  3KB  |  92 lines
  1. *
  2. *                         the stop column variable   September 6, 1985
  3. *                         added in this version
  4. *                         Updated and converted
  5. *                         to dBASE III by
  6. *
  7. *                         can be compiled
  8. *                         with "Clipper"
  9. *
  10. *                          Peter A. Andres   dBASE III version
  11. *                          (201) 852-6301
  12. *
  13. *                          with thanks to
  14. *                          Michael Cohn      dBASE II  version
  15. *                         (301) 987-5914
  16. *                               or
  17. *                     BHEC RCPM (eves/wknds)
  18. *                         (301) 661-4447
  19. *
  20. *
  21. *       This is a routine to animate a character string
  22. *       across any line of a screen using dBASE III
  23. *       It may be useful during a sign-on routine
  24. *       displaying the copyright, or some such...
  25. *
  26. *       This module can be run as a stand-alone demo
  27. *       as is.   Just type     DO ANIDB3
  28. *
  29. *       To call this routine from another
  30. *       dBASE III command file, delete the first
  31. *       "accept" statement, and the first "input"
  32. *       statement in this file.
  33. *
  34. *  INSTRUCTIONS FOR USE:
  35. *
  36. *         add these lines to your main.prg file:
  37. *
  38. *               STORE "WHATEVER CHR STRING, ETC." TO anline
  39. *
  40. *               STORE 12 TO mline    * (or whatever line
  41. *                                    *  number you want
  42. *                                    * the animation to
  43. *                                    * appear on)
  44. *
  45. *               STORE 40 TO scol     * (or whatever column
  46. *                                    *  number you want
  47. *                                    * the animation to
  48. *                                    * stop at)
  49. *
  50. *               DO animate
  51. *
  52. CLEAR
  53. SET TALK OFF
  54. CLEAR
  55. *
  56. *=========================> To use as a sub-routine or sub-program
  57. *                         > delete or comment out all previous
  58. *                         > commands and use the instructions
  59. *                         > at the top. To run as a standalone
  60. *=========================> demo just DO ANIDB3
  61. *
  62. STORE LEN(anline) TO mlen
  63. STORE mlen TO mstart
  64. DO WHILE mstart > 0
  65.   @ mline-1,0 SAY SUBSTR(anline,mstart)
  66.   STORE mstart - 1 TO mstart
  67. ENDDO
  68. STORE " " TO mspace
  69. STORE 1 TO mcount
  70. DO WHILE mcount < scol
  71.   IF mcount > scol-mlen
  72.     EXIT
  73.   ENDIF
  74.   @ mline-1,0 SAY mspace + SUBSTR(anline,1,mlen)
  75.   STORE mspace + " " TO mspace
  76.   STORE mcount + 1 TO mcount
  77. ENDDO
  78. ?
  79. ?
  80. ?
  81. ?
  82. ?
  83. ?
  84. ?
  85. ?
  86. ?
  87. ?
  88. ?
  89. ?
  90. WAIT
  91. RETURN
  92.